# @arthor quoc.le
package TestCases;
sub new
{
    my $class = shift;
    my $self = {
        _name => shift,
        _values_test_case => shift
    };

    bless $self, $class;
    return $self;
}
# Getter & Setter

# Name
sub setNames {
    my ( $self, $name ) = @_;
    $self->{_name} = $name if defined($name);
    return $self->{_name};
}

sub getNames {
    my( $self ) = @_;
    return $self->{_name};
}

# Values of test case
sub setValues {
    my ( $self, $values_test_case ) = @_;
    $self->{_values_test_case} = $values_test_case if defined($values_test_case);
    return $self->{_values_test_case};
}

sub getValues {
    my( $self ) = @_;
    my $values = $self->{_values_test_case};
    my @arrValues = split('\e',$values);
    for my $itemValue (@arrValues)
	{
		if(length($itemValue) > 1)
		{
		    print length($itemValue)," ",$itemValue,"\n";
		}
	}
}
1;